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// 

//Procedure Upgrade 

// Performs a width upgrade of a network, with mimjrows total rows. 

// "want to relabel" may be "true" or "false" each time the statement is reached 

// 

Procedure Upgrade 

for(current_rowK);cuiTent_row<num_rows;carreiit_row++) { 

insert R(current_row, N) in position insertion _position(current_row); 
if(current_row>l) { 

if(R(current_row-l,N) should be connected to R(current_row,N)) 
Connect R(ciirrent_row-l,N) to R(current_row,N); 

} 

} 

do{ 

start: 

ii(want to relabel) { 

if(any router, currentrouter, can be relabeled) { 
relabel _porft(current_router); 

goto start, 

} 

} 

select any port not connected to correspondzng_port(port); 
targetjporl^correspondmgjyortijiort); 
if(target_port is already connected) { 

disconnectedjport==port currently connected to target_port; 

Z)/.scowzec<tar^et^ort,discoiinected_port); 

} 

Connect(port 9 tsirget_port); 
} while(there are misconnected ports); 
connect_external_portsQ; 

activate _external jyortsQ; 
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// 

//Procedure Upgrade 

// Performs a width upgrade of an RCCBG network with a fanout of fanout. 

// num_routers_per row per row prior to width upgrade,and num rows total rows.Also, 

// RELABELAVAILABLE flag if swapping of ports in a single router can be performed without 

// breaking connections. 

// 

Procedure Upgrade 

for(current row^O;current_row<num_rows;current row++) { 

insert R(current_row, N) in position insertion _/3o^/Viow(current_row); 
if(current_row>l) { 

if(R(current_row-l,N) should be connected to R(current_row,N)) 

Connect R(current_row-l,N) to R(current_row,N); 

} 

} 

for(rindex=O;rindex<nomjr0Ws- 1 ;rindex++) { 
curreiit_row=row_.ve/ec/(rlndex); 
if^RELABELAVAILABLE) { 
relabel j?orts(current_roYf); 

} 

disconnected jjort=None; // Holds the port previously disconnected by the last rewire step 
wbile((port=se/eetf _po^(disconnected_port,current_row))!=None) { 
targetj^ort^corresponding_port(port); 
if(target_port is already connected) { 

disconnected_port=port currently connected to target_port; 
i)r.vco/2«^cr(targetjport ? discoiinected_port); 

} 

Connec/(port,target_port); 

} 

connect_external_portsQ\ 

activate _external _portsQ; 

Fig. 9B 



//Simplification functions. 



// 



Function correct jwwtf(portl,port2) 

{ 

if(portl can be propertly connect to port2)return(TRUE); 
else return(FALSE); 

} 

Function corresponding_port(j>o rt) 

{ 

if(port is a bottom port) { 



return top port of router in next row that should be properly connected to port port; 



return bottom port of router in the previous row that should be properly connected to port port; 



} else { 



} 



Function Disconnect(portl,port2) 



{ 

Divert traffic away from portl ; 
Divert traffic away from port2 ; 
Disconnect connection between portl and port2 ; 



} 



Function Connect(portl ,port2) 



{ 

Connect portl and port2 ; 

Allow traffic to flow through portl ; 

Allow traffic to flow through port2 ; 
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Function insertion jposition(row) f! Add a column version 



retum(number_of_routers jperro w+ 1 ); 



Function insertion _position(row) ff For Fig.3B 



switch(row) { 
case 0: 

return 4; 
case 1: 

return 4; 
case 2: 

return 3; 
case 3: 

return 0; 



} 

} 

Function insertion jposition(row) if For Fig.3C 



switch(row) { 
caseO: 

return 1; 
case 1: 

return 4; 
case 2: 

return 3; 
case 3: 



return 1; 



{ 



{ 




Function row select(raw index) { 
if[num_iws is even) { 

start_row=num_rows/2-l ; 
} else { 

start row=(num rows- 1 )/2; 

> 

if(row_index is even) { 

retum(start_row+row_index/2); 

} else { 

retum(start_row-(row_nidex+ 1 )/2); 

Fig. 11A 



Function row _select(row index) { 
retum(row_index); 

} 



M 

IJ5S: 
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Function select jwrt(dport,current_row) // optimal dport is not used 

{ 

port_pool={port: bottom ports of routers in row, current row and top port of routers in row, 

currentrow+l not connected to corresponding _port(port)}; 
II For simplicity order right to left 
// First criterion 
for port in port_pool { 

if(disconnected(port) && disconnected(correspondingj3ort(jMTi))t^ 

} 

// Second criterion: This basically says we prefer to target connections that break 
// connections only on fully populated routers 
for port in port_pool { 

if(disconnected(port) && 

nam _disconnections{router j)j(port ^connected '_to(corresponding_jx>rt(port)=0)y) { 

return(port); 

} 

// Third criterionrAny port that is not connected 
for port in portjpool { 

if(disconnected(port)) return(port); 

} 

// Catch all for any ports left over:Not likely to be needed 
for port in portjpool { 
return(port); 

} 

return (None); 

} 
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Function select jwr*(dport,row) Hi ill the hole 

{ 

if(dport !=None)return(dport); 
else { 

for all bottom ports, port, of routers in row currentrow scanning from right to left { 
import is not connected to corresponding j?ort(jH)rt)) return(port); 

} 

return None; // No more ports to rewire 

} 

} 



Fig. 12B 



Function select_port(dport,curreat_row) // round robin 
{ 

// This requires a FIFO of ports 
if(port_fifo empty) { 

port fifo^jport: bottom ports of routers in row, current row and top port of routers in row, 
currentjrow+l which are disconnected}; 
if(port_pool empty) { 

port_pool={port: bottom ports of routers in row, currentrow and top port of routers in row, 

current_row+l not connected to corresponding_port(port)} ; 
for port in port pool { 
return(port); 

} 

// Catch all for any ports left over:Not likely to be needed 
port=any port not connected to proper port 
if(port exists) { 

return(port); 
}else { 

return(None); 

} 

port=top of port fifo ; 
remove top of port fifo ; 
return(port); 
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Function relabel jw>rfs(current_row) 

{ 

for(i=0;i<routers_per_row;i++) { 

for(bportl s= 0;bportl<fanout;bportl++) { 

for(bport2=0;bport2<fanout;bport2++) { 

//Test to see if the candidate port is connected to a router which one of the 
//other ports on the same router should be connected to .It doesn 't matter 
//at this point if it is the correct top portThat will be corrected in next loop. 
if(bottom port bportl of R(current_row,i)is connected to any top port of 

router j?J{correspondingj)ort(bottom portbport2 of R(current_row, i)) { 
if[bportl!=bport2) { 

exchange j?orts(bportl of R(current_row, i),bport2 of R(current_row, i)); 

} 

} 

} 

} 

for(tportl=0;tportl<faiiout;tportl++) { 

for(tport2=0;tport2<fanout;tport2++) { 

//Test to see if the candidate port is connected to a port which one of the 
//other ports on the same router should be connected to. 
if(top port tportl of R(current_row+l, i)is connected to 

corresponding_pori(top port tportl of R(current row+l, i)) { 
if(tportl!=tport2) { 

exchange _ports(tportl of R(current_row+l, i),tport2 of El(current_row+l, i)); 

} 

} 

} 

} 

} 

// 

//Auxiliary Procedures 

// 

Function routerofiport) 

i 

return(the router which port belongs to); 

} 
// 

//Here logical relabelling is assumed possible 
//Other exchange schemes can be substituted 

// 

Function exchange jporis(portl,portl) 

{ 

permanently divert traffic originally intended for portl to port2 ; 
permanently divert traffic originally intended for port2 to portl ; 

} 
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